home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 116 / Tiger_Disk_116_2003_Tiger-Crew-Disk_de_Side_B.d64 / scrambled word (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  118 lines
  1. 6 rem author and source unknown
  2. 100 rem ***************************
  3. 110 rem *                         *
  4. 120 rem *     scrambled word      *
  5. 130 rem *                         *
  6. 140 rem *    kid-proofed by qj    *
  7. 160 rem *                         *
  8. 170 rem ***************************
  9. 180 :
  10. 190 :
  11. 200 print"[147]"tab(8)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  12. 210 printtab( 8)"a scrambled word game"
  13. 220 dim b$(20),a(20)
  14. 230 restore
  15. 240 a$=""
  16. 250 b$=""
  17. 260 c$=""
  18. 270 for z = 1 to 20
  19. 280 a(z) = 0
  20. 290 next z
  21. 300 a =int(30*rnd(ti)+1)
  22. 310 for b=1 to a
  23. 320 read a$
  24. 330 ifa$="end" then restore: b=b-1
  25. 340 next b
  26. 350 c=len(a$)
  27. 360 for e=1 toc
  28. 370 d=int(c*rnd(ti)+1)
  29. 380 if a(d)=1 then 370
  30. 390 b$(e)=mid$(a$,d,1)
  31. 400 b$=b$+b$(e)
  32. 410 a(d)=1
  33. 420 next e
  34. 430 if a$=b$ then 360
  35. 440 print"unscramble:    ";:gosub2000:print b$:ww=0
  36. 445 print""
  37. 450 print"     was meinst du ? ";
  38. 460 gosub1060
  39. 470 print:print
  40. 480 c$=in$
  41. 490 ifa$=c$ then 560
  42. 500 goto 530
  43. 510 gosub3100:ww=ww+1:ifww<3thengosub3000 :goto445
  44. 515 print"  richtig ist  : "a$:print
  45. 520 goto 580
  46. 530 w=w+1:goto510
  47. 560 print"richtig!!":print
  48. 570 r=r+1
  49. 580 print"score:  richtig"r"   falsch"w:
  50. 585 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  51. 590 print"noch ein wort?  (j/n)[146]";
  52. 600 getqq$:ifqq$<>"j"andqq$<>"n"then600
  53. 610 ifqq$="j" then print"[147]":goto240
  54. 650 print"[147]deine antworten:"
  55. 660 t=w+r
  56. 670 x=int(r/t*100+.5)
  57. 680 y=int(w/t*100+.5)
  58. 690 print
  59. 700 printx"% richtig       "y" % falsch"
  60. 710 print
  61. 720 end
  62. 740 data hobby,blume,fenster,maschine
  63. 750 data buch,schatten,sonnig,lesen
  64. 760 data tier,giraffe,zebra,katze
  65. 770 data schule,flasche,tasse,diskette
  66. 780 data regen,schnee,frieren,schwitzen
  67. 790 data magisch,wolkig,nebel,gewitter
  68. 800 data schuhe,hose,hemd,socken
  69. 810 data freund,dichter,agent,kamel
  70. 820 data ziege,sender,einladung,maus
  71. 830 data wein,bier,droge,kaffee
  72. 840 data chor,tabak,stahl,laster
  73. 850 data heuchler,heute,himmel,haushund
  74. 860 data genetik,geniessen,zucker,brot
  75. 870 data grenze,humor,lustig,traurig
  76. 880 data sinnlos,schmerz,freude,wagnis
  77. 890 data empfindlich,sensibel,empfang,digital
  78. 900 data linear,division,doktor,dokument
  79. 910 data blinddarm,blasen,wehen,blond
  80. 920 data cartridge,quaken,blenden,arbeit
  81. 930 data nummer,nussbaum,obhut,oberarm
  82. 940 data obskur,gespenst,oktober,januar
  83. 950 data anfang,pistazie,rahmen,rassel
  84. 960 data rasen,rasse,ranzen,rasieren
  85. 970 data album,schaden,sauerei,sauber
  86. 980 data iltis,schaf,grizzly,sinnbild
  87. 990 data asket,silber,gold,aluminium
  88. 1000 data sieger,trikot,trippeln,tube
  89. 1010 data futter,nickel,giftig,trottel,regenbogen,trumpf
  90. 1020 data nerven,trost,hymne,faktor
  91. 1030 data stuhl,tisch,bett,kissen,wahl
  92. 1040 data esel,affe,verweis,verwandte,verzehr,infusion
  93. 1050 data end,end
  94. 1060 rem
  95. 1070 rem cursor input routine...pet users club vol 1,#6...qj...9/1/79
  96. 1080 cr$=chr$(13)
  97. 1090 rem set fl=1 for old style pets.
  98. 1100 in$=" ":zt=ti:zc=2:zd$=chr$(20)
  99. 1110 getz$:ifz$<>""then1140
  100. 1120 ifzt<=tithenprintmid$(" [166]",zc,1);"[157]";:zc=3-zc:zt=ti+15
  101. 1130 goto1110
  102. 1140 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" [157]";:goto1180
  103. 1150 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
  104. 1160 ifzl>254then1110
  105. 1170 in$=in$+z$:printz$;zd$;z$;
  106. 1180 ifz=13thenin$=mid$(in$,2):printcr$;:return
  107. 1190 ifz=20andzl>1thenin$=left$(in$,zl-1):print"[157]";:          goto1110
  108. 1200 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto1100
  109. 1210 goto1110    
  110. 2000 print"[145][176]";:forx=1tolen(b$):print"[192]";:next:print"[174]"
  111. 2010 printspc(15) "[221]";:forx=1tolen(b$):print" ";:next:print"[221]"
  112. 2020 printspc(15) "[173]";:forx=1tolen(b$):print"[192]";:next:print"[189]"
  113. 2030 printtab(16)"[145][145]";
  114. 2040 return
  115. 3000 forxx=1to500:next
  116. 3010 print""spc(19)"                   ":return
  117. 3100 printspc(19)"sorry!!";: forxx=1to500:next:print"[157][157][157][157][157][157][157][157]        ":return
  118.